<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.4</name>
<id>-1</id>
<cardCount>42</cardCount>
<cardID>13730</cardID>
<listID>3131</listID>
<cantModify><false /></cantModify>
<cantDelete><true /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on copyright-- THESE SCRIPTS ARE COPYRIGHTED BY MAC HELP COMPANY-- CONTACT AUTHOR FOR PERMISSION TO USE THESE SCRIPTSend copyrighton HelpMsg1 String, ThisItemshow card field "Help Message Field"put "Explanation of" && ThisItem into card field "Help Message Field"put String into line 3 of card field "Help Message Field"play harpsichord dx ae dif ThisItem contains "button" then set hilite of ThisItem to falseend HelpMsg1on HelpMsg2 String, ThisItemshow background field "Help Message Field"put "Explanation of" && ThisItem into background field "Help Message Field"put String into line 3 of background field "Help Message Field"play harpsichord dx ae dif ThisItem contains "button" then set hilite of ThisItem to falseend HelpMsg2on mouseStillDownif the optionKey is down and the shiftKey is down thenedit script of the name of the targetpass mouseStillDownend ifend mouseStillDownon openCardGlobal RegMessage, DoMessage, VersionMessageif DoMessage is not False thenset UserLevel to 2play boing aanswer VersionMessage & Return &¬"See where to Register or Continue?" &¬"                                  " &¬"This program is copyrighted by Mac Help Company, 1988. All Rights Reserved."¬with "Continue" or "See"if it is "See" thenanswer RegMessage with "Good Deal"end ifend ifend OpenCardon CloseStackset userlevel to 5get the freeSize of this stackif it > 100000 thenput the value of it into NumKput Round(NumK/1000) into NumKanswer "Because a significant number of transactions have been " &¬"cleared or deleted, you can reclaim approximately " & NumK &¬"k of available disk space by compacting this stack." with "Compact"doMenu "Compact Stack"end ifend CloseStackon openstackGlobal GivingDate, ShortGivingDate, LastButtonID1, LastButtonID2Global ThisField, RegMessage, DoMessage, VersionMessageGlobal PersonalAddress, BackinAFlash, Transaction, TransNameset cursor to 4if BackinAFlash is not True thenput True into BackinAFlashput False into DoMessagehide message boxhide menubarput the long date into GivingDateput the short date into ShortGivingDateput 0 into ThisFieldgo to card "RegCard"get background field "Message"put line 1 of it into VersionMessageput VersionMessage & Return & line 2 of it into VersionMessageput line 4 of it into RegMessageset lockscreen to truego to card "a" of background "a"get card field "Statistics"put line 1 of it into AcctNumput line 2 of it into theScrollput line 3 of it into Transactionput line 4 of it into TransNameset the scroll of card field "Summary" to theScrollset lockscreen to true--show card button "Account Hilighter"click at the loc of card button "Account Hilighter"put ShortgivingDate into card field "Card Date2"send "ResetFields" to backgroundgo to card "RegCard"set lockscreen to falsevisual effect scroll up to blackvisual effect scroll up to grayvisual effect dissolveif VersionMessage contains "Demo" thenput True into DoMessageput "To receive documentation the" &&¬"latest version, send $40.00 (check or money order)" &&¬"to:" & Return & Return & RegMessage into RegMessageelseput False into DoMessageend ifif card field "Check Address" is empty and DoMessage is False thenanswer "Please personalize your registered copy of this stack." &¬" This information will also be used when printing your checks!"¬with "Cancel" or "OK"if it is "Cancel" thenshow background field "Message"go to card "Map"pass "openStack"end ifhide background field "Message"set the style of card field "Check Address" to opaqueask "Name or Business Name?"put it into line 1 of card field "Check Address"ask "Street address?"put it into line 2 of card field "Check Address"ask "City, State, and Zip?"put it into line 3 of card field "Check Address"ask "Phone Number and/or Drivers License?"put it into line 4 of card field "Check Address"answer "All information is entered. You can make any corrections " &¬"by moving the cursor on to the address field. Click 'Accept' when done."show card button "Accept"show card button "Don't Accept"set locktext of card field "Check Address" to falseelseput card field "Check Address" into PersonalAddressgo to card "Map"end ifend if -- end BackinAFlashend openstackon "CreditSubs"Global BeginCreditField, ExitFlag, ShortGivingDate, TransNameput BeginCreditField+4 into EndFieldset numberformat to 0.00put true into ExitFlagrepeat with i = BeginCreditField to EndFieldput card field id i into SubNameput i+5 into SubAmtIDget card field id SubAmtIDput it into Amountif Amount is not empty thenif SubName is not empty thenif the value of Amount is not 0 thenput False into ExitFlagput the value of Amount into SubAmtgo to card SubName of background "Sub Accounts"put 0 into iput shortGivingDate into ThisDateconvert ThisDate to DateItemsrepeat foreveradd 1 to iget line i of background field "Sub Amount"if it is empty thenput TransName into TempTransdelete last char of TempTransput shortGivingDate & " $ " & SubAmt && TempTrans ¬into line i of background field "Sub Amount"exit repeatelseconvert word 1 of it to dateItemsput it into Tempif Temp < ThisDate then-- keep goingelseput TransName into TempTransdelete last char of TempTransput return before line i of background field "Sub Amount"put shortGivingDate & " $ " & SubAmt && TempTrans ¬into line i of background field "Sub Amount"exit repeatend ifend ifend repeatadd SubAmt to background field "Sub Total"go to card "a" of background "a"end ifend ifend ifend repeatend "CreditSubs"on "UnCreditSubs"Global BeginCreditField, ShortGivingDate, TransNameput BeginCreditField+4 into EndFieldset numberformat to 0.00repeat with i = BeginCreditField to EndFieldput card field id i into SubNameif SubName is not empty thenput i+5 into SubAmtIDget card field id SubAmtIDif it is not empty thenput the value of it into SubAmtif SubAmt is not 0 thengo to card SubName of background "Sub Accounts"put 0 into iput shortGivingDate into ThisDateconvert ThisDate to DateItemsrepeat foreveradd 1 to iget line i of background field "Sub Amount"if it is empty thenput 0 - SubAmt into SubAmtput TransName into TempTransdelete last char of TempTransput shortGivingDate & " $ " & SubAmt && TempTrans ¬into line i of background field "Sub Amount"exit repeatelseconvert word 1 of it to dateItemsput it into Tempif Temp < ThisDate then-- keep goingelseput 0 - SubAmt into SubAmtput TransName into TempTransdelete last char of TempTransput return before line i of background field "Sub Amount"put shortGivingDate & " $ " & SubAmt && TempTrans ¬into line i of background field "Sub Amount"exit repeatend ifend ifend repeatAdd SubAmt to background field "Sub Total"go to card "a" of background "a"end ifend ifend ifend repeatend "UnCreditSubs"on "CreditSubs2"Global BeginCreditField, ShortGivingDate, TransNameput BeginCreditField+4 into EndFieldput the ID of this card into ThisCardIDset numberformat to 0.00repeat with i = BeginCreditField to EndFieldput background field id i into SubNameif SubName is not empty thenput i+5 into SubAmtIDget background field id SubAmtIDput the value of it into SubAmtif SubAmt is not 0 thengo to card SubName of background "Sub Accounts"put 0 into iput shortGivingDate into ThisDateconvert ThisDate to DateItemsrepeat foreveradd 1 to iget line i of background field "Sub Amount"if it is empty thenput TransName into TempTransdelete last char of
 (January 1993).iso/Files/Hyper/Me-Mz/MH Checking & Savings v2.4d.cpt/Checking & Savings Demo2.4/PATs.png){kind=link}